home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
CRS
/
crs12.d81
/
nw126-3.sda
/
FREBOOTV2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2009-10-10
|
133b
|
3 lines
9990 FORI=1TO9:POKE630+I,13:NEXT:POKE632,82:POKE633,85:POKE634,78:POKE198,9:SYSC(20):GOTO9999
12010 GOSUB16950:DD=D(3):UD=D(4):DT=0:CS$="":PRINT:IFND=0ANDFRE(0)<4000THEN9990